home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / tex / inputs / amssym.def < prev    next >
Text File  |  1991-05-20  |  4KB  |  94 lines
  1. %  AMSSYM.DEF                                           September 1990
  2. \def\fileversion{v1.0b}
  3.  
  4. %  This file contains definitions that perform the same functions as similar
  5. %  ones in AMS-TeX, so that the file AMSSYM.TEX can be used outside of AMS-TeX.
  6. %
  7. %  American Mathematical Society, Technical Support Group, P. O. Box 6248,
  8. %        Providence, RI 02940
  9. %  800-321-4AMS or 401-455-4080;  Internet: Tech-Support@Math.AMS.com
  10. %
  11. %  Copyright (C) 1990, American Mathematical Society.
  12. %  All rights reserved.  Copying of this file is authorized only if either:
  13. %       (1) you make absolutely no changes to your copy including name; OR
  14. %       (2) if you do make changes, you first rename it to some other name.
  15. %
  16. %  Instructions for using this file and the AMS symbol fonts are included in
  17. %  the AMSFonts 2.0 User's Guide.
  18. %
  19. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  20.  
  21. %  Store the catcode of the @ in the csname so that it can be restored later.
  22. \expandafter\chardef\csname pre amssym.def at\endcsname=\the\catcode`\@
  23. %  Set the catcode to 11 for use in private control sequence names.
  24. \catcode`\@=11
  25.  
  26. %  Include all definitions related to the fonts msam, msbm and eufm, so that
  27. %  when this file is used by itself, the results with respect to those fonts
  28. %  are equivalent to what they would have been using AMS-TeX.
  29. %  Most symbols in fonts msam and msbm are defined using \newsymbol;
  30. %  however, a few symbols that replace composites defined in plain must be
  31. %  defined with \mathchardef.
  32.  
  33. \def\undefine#1{\let#1\undefined}
  34. \def\newsymbol#1#2#3#4#5{\let\next@\relax
  35.  \ifnum#2=\@ne\let\next@\msafam@\else
  36.  \ifnum#2=\tw@\let\next@\msbfam@\fi\fi
  37.  \mathchardef#1="#3\next@#4#5}
  38. \def\mathhexbox@#1#2#3{\relax
  39.  \ifmmode\mathpalette{}{\m@th\mathchar"#1#2#3}%
  40.  \else\leavevmode\hbox{$\m@th\mathchar"#1#2#3$}\fi}
  41. \def\hexnumber@#1{\ifcase#1 0\or 1\or 2\or 3\or 4\or 5\or 6\or 7\or 8\or
  42.  9\or A\or B\or C\or D\or E\or F\fi}
  43.  
  44. \font\tenmsa=msam10
  45. \font\sevenmsa=msam7
  46. \font\fivemsa=msam5
  47. \newfam\msafam
  48. \textfont\msafam=\tenmsa
  49. \scriptfont\msafam=\sevenmsa
  50. \scriptscriptfont\msafam=\fivemsa
  51. \edef\msafam@{\hexnumber@\msafam}
  52. \mathchardef\dabar@"0\msafam@39
  53. \def\dashrightarrow{\mathrel{\dabar@\dabar@\mathchar"0\msafam@4B}}
  54. \def\dashleftarrow{\mathrel{\mathchar"0\msafam@4C\dabar@\dabar@}}
  55. \let\dasharrow\dashrightarrow
  56. \def\ulcorner{\delimiter"4\msafam@70\msafam@70 }
  57. \def\urcorner{\delimiter"5\msafam@71\msafam@71 }
  58. \def\llcorner{\delimiter"4\msafam@78\msafam@78 }
  59. \def\lrcorner{\delimiter"5\msafam@79\msafam@79 }
  60. \def\yen{{\mathhexbox@\msafam@55 }}
  61. \def\checkmark{{\mathhexbox@\msafam@58 }}
  62. \def\circledR{{\mathhexbox@\msafam@72 }}
  63. \def\maltese{{\mathhexbox@\msafam@7A }}
  64.  
  65. \font\tenmsb=msbm10
  66. \font\sevenmsb=msbm7
  67. \font\fivemsb=msbm5
  68. \newfam\msbfam
  69. \textfont\msbfam=\tenmsb
  70. \scriptfont\msbfam=\sevenmsb
  71. \scriptscriptfont\msbfam=\fivemsb
  72. \edef\msbfam@{\hexnumber@\msbfam}
  73. \def\Bbb#1{\fam\msbfam\relax#1}
  74. \def\widehat#1{\setbox\z@\hbox{$\m@th#1$}%
  75.  \ifdim\wd\z@>\tw@ em\mathaccent"0\msbfam@5B{#1}%
  76.  \else\mathaccent"0362{#1}\fi}
  77. \def\widetilde#1{\setbox\z@\hbox{$\m@th#1$}%
  78.  \ifdim\wd\z@>\tw@ em\mathaccent"0\msbfam@5D{#1}%
  79.  \else\mathaccent"0365{#1}\fi}
  80. \font\teneufm=eufm10
  81. \font\seveneufm=eufm7
  82. \font\fiveeufm=eufm5
  83. \newfam\eufmfam
  84. \textfont\eufmfam=\teneufm
  85. \scriptfont\eufmfam=\seveneufm
  86. \scriptscriptfont\eufmfam=\fiveeufm
  87. \def\frak#1{{\fam\eufmfam\relax#1}}
  88. \let\goth\frak
  89.  
  90. %  Restore the catcode value for @ that was previously saved.
  91. \catcode`\@=\csname pre amssym.def at\endcsname
  92.  
  93. \endinput
  94.